100 POKE53280,0:POKE53281,0
140 POKE55,0:POKE56,64:CLR:A$=""
142 DV=PEEK(186):IFDV<8THENDV=8
143 DIMR$(12),AN$(12,14),E(12)
145 GOSUB60000
155 DEF FND(I)=20-(LEN(AN$(X,I))/2)
160 SYS57812"UNPACKER.89",DV,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
180 SYS57812"TITLE.SHP",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
190 POKE251,64:POKE252,96:POKE253,92:SYS51456
195 POKE252,96:POKE253,92:SYS51459
197 SYS57812"WP.O $C000",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
198 SYS57812"INPANY/COPY",DV,0:POKE780,0:POKE781,60:POKE782,3:SYS65493
200 IP=828:UNPACK=51456:HGR=51459:CP=928
210 BO=53280:BG=53281
220 OPEN2,DV,2,"DOODLE INFO,P,R"
222 J=1:K=0:FORI=0TO1:SYSIP,2,40:I=ST
224 IFA$="*"THENJ=J+1:K=0:GOTO228
226 K=K+1:AN$(J,K)=A$
228 NEXT:CLOSE2
240 NP=J:FORX=1TONP:R$(X)="DOODLE"+STR$(X)+".SHP"
250 NEXT
260 SYSHGR
270 FORX=1TONP
280 GOSUB1810
285 FH=0:IFLEFT$(R$(X),2)="U."THENFH=1
290 SYS57812R$(X),DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
300 E(X)=PEEK(53281)
310 GOSUB1910:IFA$="Q"ORA$="[209]"THENGOSUB1250
312 GOSUB2000
340 KK=0:POKE198,0
360 KK=KK+1:GETA$
370 IFA$="Q"ORA$="[209]"THENGOSUB1250
380 IFA$="S"ORA$="[211]"THEN470
385 IFA$="P"ORA$="[208]"THENGOSUB3000:GOTO340
390 IFA$="B"ORA$="[194]"THENPOKEBO,(PEEK(BO)+1)AND15:GOTO340
400 IFA$=" "THEN420
419 IFKK<400THEN360
420 SYSHGR:PRINT"[147]":POKE198,0:NEXT X
430 GOTO270
470 SYS HGR
480 POKEBO,0:POKEBG,0
560 PRINT"[147][159] [212]HIS WILL SAVE THE PICTURE AS A"
562 PRINT" [196][207][207][196][204][197]! FILE."
564 PRINT" [211]OURCE DRIVE IS"DV
566 PRINT"[159] [196]ESTINATION DRIVE # ([154]8[159] - [154]12[159]): ";:L9%=2:GOSUB50000:DE=VAL(Q9$)
568 IFDE<8ORDE>12THEN560
590 PRINT"[159] [198]ILENAME: DD";:L9%=14:GOSUB50000:IFQ9$=""THEN1110
620 NM$=LEFT$("DD"+Q9$,14)
820 OPEN15,DE,15,"R0:"+NM$+"="+NM$:INPUT#15,ER,ER$:CLOSE15
830 IFER=63THENGOSUB1170:GOTO1110
950 SYS57812NM$,DE:POKE193,0:POKE194,92:POKE174,0:POKE175,128:SYS62954
980 OPEN15,8,15:INPUT#15,ER,ER$,Y$,Z$:CLOSE15
990 IFERTHENGOSUB1170:GOTO490
1030 POKEBO,0:POKEBG,0
1050 PRINT" [211]UCCESSFUL SAVE!"
1060 FORT=1TO2000:NEXT
1110 SYSHGR:GOTO340
1170 PRINT" [196]ISK ERROR!
1180 [151]214,10:[153]
1190 A$[178]"PRINT#VALRROR #"[170][196](ER)[170]"PRINT#,"[170]ER$
1200 X%[178]22[171][195](A$)[173]2:[153][163]X%);A$
1210 [151]214,21:[153]
1220 [153]"OPEN (null)RESS (null)(null)ATNLENVALOPEN TO CONTINUE."
1230 [161]A$:[139]A$[179][177]" "[167]1230
1240 [142]
1250 O[178][194](53270)[175]16
1255 [139]O[167][158]51459
1260 [151]BO,0:[151]BG,0
1270 [153]"LOAD":[151]214,11:[153]:[153]"CONT  (null)UIT? (YCONT/NCONT)":[151]198,0
1280 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]1280
1290 [139]A$[178]"Y"[167]1330
1295 [139]O[167][158]51459
1300 [142]
1330 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
1340 [139]ER[179][177]63[167][153]"LOAD":[128]
1350 [153]"LOADSTOPLOAD"[199](34)"HELLO CONNECT"[199](34)",8"
1360 [153]"RUN"
1370 [151]631,13:[151]632,13:[151]198,2:[128]
1770 [153]"";
1810 [151]BG,9:[151]BO,9
1820 [153]"LOADSTOPORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
1830 [129]QX[178]1[164]15
1840 [153]"(null)"[163]38)"(null)":[130]
1850 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
1860 [129]LX[178]217[164]242:[151]LX,([194](LX)[176]128):[130]
1870 [153]""
1880 [129]I[178]1[164]13
1882 [153][163][165]D(I))AN$(X,I)
1886 [130]
1900 [142]
1910 KK[178]0
1915 [151]214,16:[153]:[153]"PRINT     (null)HILE THE SLIDE IS SHOWING..."
1916 [153]"       PEEK SYS- CHANGES BORDER COLOR"
1918 [153]"       (null) SYS- TAKES YOU TO (null)(null)RIGHT$(null)(null) ROUTINE"
1919 [153]"       (null) SYS- TAKES YOU TO (null)ATN(null)VAL ROUTINE"
1920 [153]"       (null) SYS- QUITS TO (null)(null)ATNSTR$(null)(null)ATN(null)"
1925 [151]214,23:[153]
1930 [153]"PRINT(null)RESS (null) TO QUIT - ATNNY OTHER TO CONTINUEON"
1940 KK[178]KK[170]1:[161]A$:[139]A$[179][177]""[176]KK[177]1000[167][142]
1950 [137]1940
2000 [153]"LOAD";:[139]FH[167][151]254,0:[158]BA:[137]2040
2020 [151]BG,15:[151]BO,15:[151]251,64:[151]252,96:[151]253,92
2030 [158]UN
2040 [151]252,96:[151]253,92:[158]HGR:[142]
2050 [142]
3000 [158]HGR:[151]BO,0:[151]BG,0
3010 [153]"LOAD"
3020 [159]4,4:[152]4:[160]4
3030 [139]ST[179][177][171]128[167]3070
3040 [153]"LOADOPEN  (null)URN YOUR PRINTER ON AND PRESS (null)(null)ATNLENVALOPEN."
3050 [161]A$:[139]A$[179][177]" "[167]3050
3060 [137]3020
3070 [153]"OPEN (null)RESS (null)VAL(null)(null)(null)(null)OPEN TO PRINT THE GRAPHIC, OR
3080 PRINT" PRESS [211][208][193][195][197][159] TO GO BACK TO THE GRAPHIC.
3090 [161]A$:[139]A$[179][177]" "[175]A$[179][177][199](13)[167]3090
3100 [139]A$[178][199](13)[167][151]49162,96:[158]HGR:[158]49152:[142]
3110 [158]HGR:[142]
10000 [159]15,8,15,"S0:DOODLE SHOW":[160]15:[148]"DOODLE SHOW",8:[128]
50000 Q9$[178]"":U9[178]53280:[151]198,0
50010 [161]A$
50020 [151]646,[187](1)[172]15[170]1:[153]"TOCMD";:[139]A$[178]""[167]50010
50030 [139]A$[178][199](13)[167][153]" ":[142]
50040 [139](A$[178][199](20)[175][195](Q9$))[167]Q9$[178][200](Q9$,[195](Q9$)[171]1):[137]50080
50050 [139][195](Q9$)[177][178]L9%[167]T9%[178][194](U9):[151]U9,1:[151]U9,T9%:[137]50010
50060 [139]A$[179]" "[176](A$[177][199](127)[175]A$[179][199](160))[176]A$[178][199](34)[167]50010
50070 Q9$[178]Q9$[170]A$
50080 [153]""A$;:[137]50010
60000 [153]"LOADFOR          STR$ (null) (null) STR$ (null) VAL (null)    (null) ASC"
60002 [153]" ASC ATN (null) (null) (null) (null)    (null) (null) ATN STR$ (null) (null) ATN (null) RIGHT$ (null) VAL (null)"
60004 [153]"CONT    "[199](34)"PEEKOREDOM BREEDS BOMBAST."[199](34)
60006 [153][163]22)"(null)NEES LENALHOON"
60009 B9$[178]"                                      "
60010 [151]214,14:[153]:[153]"  LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREPRINT#"
60020 [129]I[178]0[164]7:[153]B9$:[130]:[153]"  POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 B9$(0)[178]"(null)(null)ATNSTR$(null)(null)ATN(null) STR$(null)(null)STR$(null)VAL(null)"
60040 B9$(1)[178]"BY ASCAMOUS (null)(null)ATNSTR$(null)(null)ATN(null)ITES"
60050 B9$(2)[178]"(null)1.0 (LEN) 1991 BY (null)OFTDISK, RIGHT$NC."
60060 B9$(3)[178]"(null)UBLISHED ON (null)(null)ATNSTR$(null)(null)ATN(null) #87"
60070 B9$(4)[178]"(null)UBSCRIPTIONS 1-800-831-2694"
60080 B9$(5)[178]"ATNLL (null)IGHTS (null)ESERVED"
60090 [151]214,16:[153]:[129]I[178]0[164]5:[153][163]20[171]([195](B9$(I))[173]2))""B9$(I):[130]
60095 [142]